a=1:10
b= -(1:10)
sum(a+b)

c= seq(from=0, to=1, length= 9)
## Exerccio 1
biomassa1= (exp(-1.7953)* 15^(2.2974))
biomassa2= (exp(-2.6464+1.9960*log(15)+ 0.7558*log(12)))

###Exerccio 2
a="a"
letra.a= rep(a, 6)

numeros= rep(c(1:3), each=3)

decrescente= rep(c(1:3), times=(c(3,2,1)))
help(seq)
ab=  rep(1:5)
ba=rep(4:1)
sequencia= c(ab,ba)
sort(sequencia)
impares= seq(from=1, to=99,by=2)

###Exercicio 3
help(diff)
luz= c(9839,10149,10486,10746,11264,11684,12082,12599,13004,13350,13717,14052)

luz.cons.= diff(luz)

luz.m= mean(luz)
luz.md= median(luz)
luz.v= var(luz)

luz.range= range(luz)

##Exercicio 4 ## area  pi*r, permetro  2piR


r1=(13.5/2)
arvore1= base::pi*((r1)^2)

r1= (7/2)
r2=(9/2)
r3=(12/2)
arvorer1= pi*((r1)^2)
arvorer2= pi*((r2)^2)
arvorer3= pi*((r3)^2)
arvore2= (arvorer1+arvorer2+arvorer3)

##exercicio 5

pesos = c(78.4, 79.8, 76.0, 75.3, 77.4,
 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)

mean.peso=mean(pesos)
desvios= pesos - mean.peso
pesos.d2= desvios^2
pesos.d2s= sum(pesos.d2)
length(pesos)
pesos.v= pesos.d2s/11

pesos.ds= sqrt(pesos.d2s)
pesos.s= sqrt(pesos.v)

##exercicio 6
help(pt)
help(qt)
t.test= pt(2.2, 19, lower.tail = F,)+ (1-(pt(2.2,19,lower.tail=T)))

limite=abs(qt(0.025, 19, lower.tail= F))










